Steps to work with Screen Painter 


Step 1 > 
• Create an Executable program ( SE38 ), for each Create screen 
to be created Execute SE51. 


Note:- program's name in Executable program and screen painter must be 
same. 


e Write the Same program name and Screen number (9000 - 
9999). 


• Click on Create. 
• Give Short Text (Description) and Screen type - Normal. 
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Screen number 9801 | Active 
| Attributes | Elementlist ү Flow logic | 
Short description (screen painter: ог Кпа1 = = 
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Step 2 > 


e Click on button as shown on screen , a graphical 
screen painter appears. 


• Click on Dictionary/Program fields Window (f6) Bl button for 
all Input/Output fields on layout as shown below. 
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Dictionary /Program Fields Window F6 


• A window appears , here write a table name in 
Table/Field Name and Press Enter. Data will be displayed. 
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Choose fields that you want to use and press enter. 

A screen will displayed with all levels and text boxes. 

Choose two buttons from left panel Such as Submit and Back. 
( Double click on a button first to fill 


Its mandatory information i.e. name, text,FctCode... 
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• Now your Screen look like this screen. You can choose icons 
also as seen below (from its attributes - Icon name). 


• Save it and Activate it. 
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e Click оп < 9100 (f9) button from same window. 


[= Screen Edit | Goto Utilities (WM) Environment — System Help 
@ > аб еге Вам seis mm oium 
Screen Painter: Change Screen for ZSCREEN PAINTER 1 
= Уз а | 886 ЕЯ Laot Pretty Printer — Pattern 


Screen number (9001 Active 
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2 | PROCESS BEFORE OUTPUT. 
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5> PROCESS AFTER INPUT. 

6 MODULE process_data_9001. 
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8 " should be defined in program.| 


• Save it and activate it. 


Step 3 > 
e Goto Program and implement all the modules called 


REPORT ZSCREEN PAINTER 1. 
tables kna1. 
call screen 9001. 


module process data 9001 input. ' here you can write input or output which 
are optional (as per your requirement)...... 

CASE sy-ucomm. 

WHEN 'SUB'. 


INSERT KNA1 FROM КМА1. 
IF SY-SUBRC = 0. 
MESSAGE 'Data successfully saved. ' type 'S'. 
else. 
MESSAGE 'Record already exists. ' type 'Е'. 
ENDIF. 


WHEN 'ВАСК'. 
LEAVE TO SCREEN 0. "ALWAYS ONE SCREEN BACK. 
ENDCASE. 
endmodule. 


